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TITLE: 

TYPE: 

NUMBER OF WORDS: 

TEMPORARY STORAGE: 

SPEED: 

DESCRIPTION: 



ENTRY: 



USE: 



Mixed Number Output (DO I or SADOl) 

Closed Subroutine , Standard Entry 

20 + 56 words of Pl6 

0, 1, 2, 3. 

Punching time 

This routine converts numbers from a scaled double-precision 

two's complement representation and prints them in a sign-and- 

absolute magnitude representation, ; using print routine Pl6. 

The scaling in the original representation is such that the 

-39 
binary point is assumed to lie after the 2 digit, between 

A and Q. The part of the number in A is called the integer 
part, and that in Q is called the fraction part. The fraction 
part is always positive; the sign of the number is that of the 
integer part. 

If oa entry to this routine, location zero contains the integer 
part, A contains the positive fraction part, and Q contains 

- - TlOOp + n] F 50 q F, 
then before going to the order at the right hand side of q+1, 
this routine will print the number with p digits in the integer 
part, a decimal point between the integer part and the frac- 
tion part, and the fraction part to n digits, correctly rounded, 
Library"" - routine Pl6 is used to print each part. 
Note that" 12 > p > 0, and 12 > n > 1* 

Aside from the use of this routine to output results of an 
integer-fraction calculation, it may also be used in a way 
which takes advantage of the binary operation of the computer. 
If a machine variable X is scaled by 2" , then to print out 
X, one simply shifts X to the right (after clearing QI ) by 
(39- r ) places. 
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NOTES: 1. The library copy of this- routine is prepared for 

use with SADOI. To use it with the DOI 7 use a 
proper directive "before the routine, remove the 
(Pl6)00K directive at the end, and their copy 
library routine Pl6-21^ with a proper directive 
immediately following the last word of ~bhis routine, 

2. Because- more characters may be punched, the output 
time may be longer than that for Pl6 to print a 
single -length number with the same number of 
digits. 

3. If the output from this routine is to be reread 
into the computer by library routine N16-286, -the 
last digit of the f fraction part must be -followed 
by a fifth-hole character; this routine punches • 
no fifth-hole characters after the numbeiv- 

k. To replace the + sign of a positive number by a 

space, change word 11 of this routine to J2 F 50 JL, 

5* If the integer part has k digits, and kS>p r this 
routine will print all of the k digits, -asd place 
the decimal point after k-th digit. This means 
that the decimal point will be moved k-p spaces to 
the right on the printed page from its normal 
position. 
EXAMPLE: Suppose X is scaled by 2" . Then to print X with 



k decimal digits in the integer part and 9 in the 
fraction part, the following orders could be used: 
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L5 (X) X in A 

50 (ZERO) Clear Q 
-10 



10 29F 
^0 F 

:0b )s 5 ^09F 

50 (B) 
26 (P22) 



)(2" 29 ) 



(X)(2 

Integer part at location zero 

Fraction part in A 

Link and parameters in Q 
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nj 



LOCATION 


ORDER 
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00K(P22) ' 







ko 3F 
K5 F 




Save fraction part 


1 


k2 IGL- 
OO 7F 




Plant link 


2 


11 26F 
66 6jl 






3 


00 19F 








k6 % 




Plant n 


k 


S5 95^F j 








k6 11L 




Plant p 


5 


L5 F 




Test sign of number: 




32 7L 




if -4> print immediately 


6 


89 IF 




If -_, take negative 




LO 3F 




of fraction part 


7 


32 12L 








50 11L 




If - } fraction part is zero 


8 


22 20L- 




Print integer part 




L5 3F 




Get fraction part 


9 


Jif (n)F 


by 3' 


Print fraction part, replacing 




50. 9L 

22 &1L 




+ sign by a two -hole delay- 


10 








22 ( )F 


by 1 


Exit via link 


ii 


52 (p)F \ 
50 7L 


by k' 


Program parameter for Pl6 


12 


7J 962F i 


by 17 






^0 3F j 
F5 F 




Store corrected fraction, part 


13 




and add carry to integer ..part 




14-0 F 






ill- 


36 15L - 


-\ 


If now +, integer part is -0 




22 7L 




Jump to print both parts 


15 


L5 11L ^ 

80 2F 


J 


Set up spacing 


16 


Lk k-L 








\6 i8l 




Plant 963 + Mp-2) 



LOCATION 



17 
18 

19 



ORDER 



LO 12L 
32 18L 
92 ( )F 
92 706F 
83 h-F 
22 8L 

(Pl6)OOK 



3 



by l6 T 



NOTES 



PAGE 2 
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Test for p s or 1 

Punch p-1 spaces 

Punch - sign 

Punch z§ro 

Jump to print fraction part 

Routine P16-23A must follow 
after the last word of this 
routine . 



